---
title: "eeda demonstration dashboard"
output: 
  flexdashboard::flex_dashboard:
    theme: bootstrap
    orientation: columns
    vertical_layout: scroll
    source: embed
---

```{r setup, include=FALSE}
library(flexdashboard)
library(knitr)
library(eeda)

target_var <- "target"
reference_var <- c("key_age", "key_recency", "key_frequency", "key_monetary")
study_variables <-
  names(eeda_test_data %>%
    dplyr::select(-tidyselect::any_of(c(target_var))))
```

```{r results="asis"}
curios::add_custom_style()
```

```{r results="asis"}
eeda::extra_eda(eeda_test_data,
  eda_var = "target",
  menu_title = "Univariate"
)
```

```{r results="asis"}
# study_variables %>%
"eg_factor_50" %>% 
  furrr::future_walk(~ eeda::extra_eda(eeda_test_data[1:200, ],
    eda_var = .x,
    target_var = target_var,
    reference_var = reference_var,
    menu_title = "Bivariate"
  ),
  .options = furrr::furrr_options(seed = NULL)
  )
```